home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / progjrn / pj_5_5.arc / DEMO.VAR < prev    next >
Encoding:
Text File  |  1987-08-07  |  1.4 KB  |  43 lines
  1. {  Include file required by source code file DEMO.PAS, from article
  2.    by John J. Newlin, Page 28, Volume 5.5, Programmer's Journal
  3.  
  4. DEMO.VAR include file
  5. Copyright 1987 by John J. Newlin, 4060-228 Rosenda Court, San
  6. Diego, CA 92122 
  7. }
  8. (*  Type and variable declarations to
  9.     be used with DEMO.PAS.           *)
  10.  
  11. type
  12.   cursor_type = (normal,none);
  13.   str4 = string[4];
  14.   str255 = string[255];
  15.   regpack     = record case integer of
  16.                  1 : (ax,bx,cx,dx,bp,si,di,ds,es,flags:integer);
  17.                  2 : (al,ah,bl,bh,cl,ch,dl,dh : byte);
  18.                 end;
  19.   address = record
  20.               offset,segment : integer;
  21.             end;
  22.   buffer_type = array[1..4000] of byte;
  23.   hex_char_type = array[0..15] of char;
  24.  
  25. const
  26.   activate      : byte = 113;
  27.   dataseg       : integer = 0;
  28.   stackseg      : integer = 0;
  29.   stackptr      : integer = 0;
  30.   demo_main     : integer = 0;
  31.   loaded_in_emm : integer = $9876;
  32.   emm_handle    : integer = 0;
  33.   saveds        : integer = 0;
  34.   savees        : integer = 0;
  35.   savess        : integer = 0;
  36.   savesp        : integer = 0;
  37.   hex_char      : hex_char_type = '0123456789ABCDEF';
  38. var
  39.   vector : array[0..$FF] of address absolute $0:$0;
  40.   emm_seg,cursor_size,cursor_posit,buffer_loc : integer;
  41.   color,scan : boolean;
  42.   main_buffer,aux_buffer : ^buffer_type;
  43.